home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / qtvrxtra.cst / 00007_BasicVR Tutorial scripts - Non QTVR.ls < prev    next >
Encoding:
Text File  |  1998-05-18  |  924 b   |  26 lines
  1. on initBasicVRMovie
  2.   global gFreeRam
  3.   
  4.   set gFreeRam = the Freebytes
  5. end
  6.  
  7. on putMovieInfo
  8.   global gQTVRObj, gFreeRam
  9.   
  10.   if ISQTVRMovie(gQTVRObj) then
  11.     set ramUsedByMov = gFreeRam - the Freebytes
  12.     
  13.     if the machineType = 256 then set the itemDelimiter = "\"
  14.     else set the itemDelimiter = ":"
  15.     
  16.     set vrName = the last item of the text of field "fileName"
  17.     
  18.     put "The QuickTime VR movie '" & vrName & "' has been opened. It is currently using" && ramUsedByMov/1024 & "k of RAM." & RETURN & RETURN & "To see the movie go to the next section: 'Display'" into field "Movie Info"
  19.   else
  20.     put "The QuickTime VR movie '" & vrName & "' could not be opened." & RETURN & RETURN & "Make sure the pathname is correct and the movie is a valid QTVR movie. If that still doesn't work try resaving it in QTVRPlayer." into field "Movie Info"
  21.   end if
  22. end
  23.  
  24. on clearMovieInfo
  25.   put " " into field "Movie Info"
  26. end